﻿'Imports MySql.Data.MySqlClient
Public Class cDiagnostico
    Private varCodigo_Diagnostico As String
    Private varNombre_Diagnostico As String
    Private varEstado_Diagnostico As String


    Public Property Codigo_Diagnostico As String
        Get
            Return varCodigo_Diagnostico
        End Get
        Set(ByVal codigo As String)
            varCodigo_Diagnostico = codigo
        End Set
    End Property

    Public Property Nombre_Diagnostico As String
        Get
            Return varNombre_Diagnostico
        End Get
        Set(ByVal nombre As String)
            varNombre_Diagnostico = nombre
        End Set
    End Property

    Public Property Estado_Diagnostico As String
        Get
            Return varEstado_Diagnostico
        End Get
        Set(ByVal estado As String)
            varEstado_Diagnostico = estado
        End Set
    End Property

    Public Function cadena() As String
        Return varCodigo_Diagnostico & varNombre_Diagnostico & varEstado_Diagnostico
    End Function
    'funcion cargar datos 
    Public Function Cargar(ByVal Campo As String) As ArrayList
        Dim datos As New dDiagnostico
        Dim resultado As ArrayList
        resultado = datos.CargarMysql(Campo)
        Return resultado
    End Function
    'guardar datos
    Public Sub Guardar()
        Dim datos As New dDiagnostico
        datos.GuardarMysql(varCodigo_Diagnostico, varNombre_Diagnostico, varEstado_Diagnostico)
    End Sub
    Public Function Consultar(ByVal campo As String) As DataSet
        Dim datos As New dDiagnostico
        Dim resultado As DataSet
        resultado = datos.ConsultarMysql(campo)
        'resultado = datos.ConsultarMysql(campo)
        Return resultado
    End Function
End Class
